home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / 12Cyl8sp.ray next >
Text File  |  1999-07-06  |  5KB  |  195 lines
  1. Viewpoint(1000, 1.3, -0.9)
  2. AmbientLight(128, 128, 128)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5.  
  6. Cylinder(10,     ' Radius
  7.   -80, -80, -80, ' Point at one end
  8.   -80, -80, 80,  ' Point at other end
  9.   0.1, 0.3, 0.6, ' Ambient.
  10.   0.1, 0.3, 0.6, ' Diffuse.
  11.   20, 0.35,      ' Specular.
  12.   0, 0, 0,       ' Reflected.
  13.   3, 1, 1.4,     ' TransN, n1, n2.
  14.   0, 0, 0        ' Tansmission.
  15. )
  16. Cylinder(10,     ' Radius
  17.   -80, -80, 80,  ' Point at one end
  18.   80, -80, 80,   ' Point at other end
  19.   0.1, 0.3, 0.6, ' Ambient.
  20.   0.1, 0.3, 0.6, ' Diffuse.
  21.   20, 0.35,      ' Specular.
  22.   0, 0, 0,       ' Reflected.
  23.   3, 1, 1.4,     ' TransN, n1, n2.
  24.   0, 0, 0        ' Tansmission.
  25. )
  26. Cylinder(10,     ' Radius
  27.   80, -80, 80,   ' Point at one end
  28.   80, -80, -80,  ' Point at other end
  29.   0.1, 0.3, 0.6, ' Ambient.
  30.   0.1, 0.3, 0.6, ' Diffuse.
  31.   20, 0.35,      ' Specular.
  32.   0, 0, 0,       ' Reflected.
  33.   3, 1, 1.4,     ' TransN, n1, n2.
  34.   0, 0, 0        ' Tansmission.
  35. )
  36. Cylinder(10,     ' Radius
  37.   80, -80, -80,  ' Point at one end
  38.   -80, -80, -80, ' Point at other end
  39.   0.1, 0.3, 0.6, ' Ambient.
  40.   0.1, 0.3, 0.6, ' Diffuse.
  41.   20, 0.35,      ' Specular.
  42.   0, 0, 0,       ' Reflected.
  43.   3, 1, 1.4,     ' TransN, n1, n2.
  44.   0, 0, 0        ' Tansmission.
  45. )
  46.  
  47. Cylinder(10,     ' Radius
  48.   -80, 80, -80,  ' Point at one end
  49.   -80, 80, 80,   ' Point at other end
  50.   0.1, 0.3, 0.6, ' Ambient.
  51.   0.1, 0.3, 0.6, ' Diffuse.
  52.   20, 0.35,      ' Specular.
  53.   0, 0, 0,       ' Reflected.
  54.   3, 1, 1.4,     ' TransN, n1, n2.
  55.   0, 0, 0        ' Tansmission.
  56. )
  57. Cylinder(10,     ' Radius
  58.   -80, 80, 80,   ' Point at one end
  59.   80, 80, 80,    ' Point at other end
  60.   0.1, 0.3, 0.6, ' Ambient.
  61.   0.1, 0.3, 0.6, ' Diffuse.
  62.   20, 0.35,      ' Specular.
  63.   0, 0, 0,       ' Reflected.
  64.   3, 1, 1.4,     ' TransN, n1, n2.
  65.   0, 0, 0        ' Tansmission.
  66. )
  67. Cylinder(10,     ' Radius
  68.   80, 80, 80,    ' Point at one end
  69.   80, 80, -80,   ' Point at other end
  70.   0.1, 0.3, 0.6, ' Ambient.
  71.   0.1, 0.3, 0.6, ' Diffuse.
  72.   20, 0.35,      ' Specular.
  73.   0, 0, 0,       ' Reflected.
  74.   3, 1, 1.4,     ' TransN, n1, n2.
  75.   0, 0, 0        ' Tansmission.
  76. )
  77. Cylinder(10,     ' Radius
  78.   80, 80, -80,   ' Point at one end
  79.   -80, 80, -80,  ' Point at other end
  80.   0.1, 0.3, 0.6, ' Ambient.
  81.   0.1, 0.3, 0.6, ' Diffuse.
  82.   20, 0.35,      ' Specular.
  83.   0, 0, 0,       ' Reflected.
  84.   3, 1, 1.4,     ' TransN, n1, n2.
  85.   0, 0, 0        ' Tansmission.
  86. )
  87.  
  88. Cylinder(10,     ' Radius
  89.   -80, 80, -80,  ' Point at one end
  90.   -80, -80, -80, ' Point at other end
  91.   0.1, 0.3, 0.6, ' Ambient.
  92.   0.1, 0.3, 0.6, ' Diffuse.
  93.   20, 0.35,      ' Specular.
  94.   0, 0, 0,       ' Reflected.
  95.   3, 1, 1.4,     ' TransN, n1, n2.
  96.   0, 0, 0        ' Tansmission.
  97. )
  98. Cylinder(10,     ' Radius
  99.   -80, 80, 80,   ' Point at one end
  100.   -80, -80, 80,  ' Point at other end
  101.   0.1, 0.3, 0.6, ' Ambient.
  102.   0.1, 0.3, 0.6, ' Diffuse.
  103.   20, 0.35,      ' Specular.
  104.   0, 0, 0,       ' Reflected.
  105.   3, 1, 1.4,     ' TransN, n1, n2.
  106.   0, 0, 0        ' Tansmission.
  107. )
  108. Cylinder(10,     ' Radius
  109.   80, 80, 80,    ' Point at one end
  110.   80, -80, 80,   ' Point at other end
  111.   0.1, 0.3, 0.6, ' Ambient.
  112.   0.1, 0.3, 0.6, ' Diffuse.
  113.   20, 0.35,      ' Specular.
  114.   0, 0, 0,       ' Reflected.
  115.   3, 1, 1.4,     ' TransN, n1, n2.
  116.   0, 0, 0        ' Tansmission.
  117. )
  118. Cylinder(10,     ' Radius
  119.   80, 80, -80,   ' Point at one end
  120.   80, -80, -80,  ' Point at other end
  121.   0.1, 0.3, 0.6, ' Ambient.
  122.   0.1, 0.3, 0.6, ' Diffuse.
  123.   20, 0.35,      ' Specular.
  124.   0, 0, 0,       ' Reflected.
  125.   3, 1, 1.4,     ' TransN, n1, n2.
  126.   0, 0, 0        ' Tansmission.
  127. )
  128.  
  129. Sphere(10, -80, -80, -80,
  130.   0.1, 0.3, 0.6, ' Ambient.
  131.   0.1, 0.3, 0.6, ' Diffuse.
  132.   20, 0.35,      ' Specular.
  133.   0, 0, 0,       ' Reflected.
  134.   3, 1, 1.4,     ' TransN, n1, n2.
  135.   0, 0, 0        ' Tansmission.
  136. )
  137. Sphere(10, -80, -80, 80,
  138.   0.1, 0.3, 0.6, ' Ambient.
  139.   0.1, 0.3, 0.6, ' Diffuse.
  140.   20, 0.35,      ' Specular.
  141.   0, 0, 0,       ' Reflected.
  142.   3, 1, 1.4,     ' TransN, n1, n2.
  143.   0, 0, 0        ' Tansmission.
  144. )
  145. Sphere(10, 80, -80, 80,
  146.   0.1, 0.3, 0.6, ' Ambient.
  147.   0.1, 0.3, 0.6, ' Diffuse.
  148.   20, 0.35,      ' Specular.
  149.   0, 0, 0,       ' Reflected.
  150.   3, 1, 1.4,     ' TransN, n1, n2.
  151.   0, 0, 0        ' Tansmission.
  152. )
  153. Sphere(10, 80, -80, -80,
  154.   0.1, 0.3, 0.6, ' Ambient.
  155.   0.1, 0.3, 0.6, ' Diffuse.
  156.   20, 0.35,      ' Specular.
  157.   0, 0, 0,       ' Reflected.
  158.   3, 1, 1.4,     ' TransN, n1, n2.
  159.   0, 0, 0        ' Tansmission.
  160. )
  161.  
  162. Sphere(10, -80, 80, -80,
  163.   0.1, 0.3, 0.6, ' Ambient.
  164.   0.1, 0.3, 0.6, ' Diffuse.
  165.   20, 0.35,      ' Specular.
  166.   0, 0, 0,       ' Reflected.
  167.   3, 1, 1.4,     ' TransN, n1, n2.
  168.   0, 0, 0        ' Tansmission.
  169. )
  170. Sphere(10, -80, 80, 80,
  171.   0.1, 0.3, 0.6, ' Ambient.
  172.   0.1, 0.3, 0.6, ' Diffuse.
  173.   20, 0.35,      ' Specular.
  174.   0, 0, 0,       ' Reflected.
  175.   3, 1, 1.4,     ' TransN, n1, n2.
  176.   0, 0, 0        ' Tansmission.
  177. )
  178. Sphere(10, 80, 80, 80,
  179.   0.1, 0.3, 0.6, ' Ambient.
  180.   0.1, 0.3, 0.6, ' Diffuse.
  181.   20, 0.35,      ' Specular.
  182.   0, 0, 0,       ' Reflected.
  183.   3, 1, 1.4,     ' TransN, n1, n2.
  184.   0, 0, 0        ' Tansmission.
  185. )
  186. Sphere(10, 80, 80, -80,
  187.   0.1, 0.3, 0.6, ' Ambient.
  188.   0.1, 0.3, 0.6, ' Diffuse.
  189.   20, 0.35,      ' Specular.
  190.   0, 0, 0,       ' Reflected.
  191.   3, 1, 1.4,     ' TransN, n1, n2.
  192.   0, 0, 0        ' Tansmission.
  193. )
  194.  
  195.